home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / dpingw / dpingw.exe / DPingS.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-03-30  |  1.8 KB  |  62 lines
  1. VERSION 5.00
  2. Object = "{DAA0D7B7-6667-11D1-9A13-00C04FD8DC2E}#1.0#0"; "DPing.dll"
  3. Begin VB.Form Form1 
  4.    Caption         =   "DameWare Simple Ping Sample"
  5.    ClientHeight    =   2835
  6.    ClientLeft      =   240
  7.    ClientTop       =   720
  8.    ClientWidth     =   5730
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   2835
  11.    ScaleWidth      =   5730
  12.    StartUpPosition =   2  'CenterScreen
  13.    Begin VB.CommandButton Command1 
  14.       Caption         =   "Ping"
  15.       Height          =   375
  16.       Left            =   3360
  17.       TabIndex        =   1
  18.       Top             =   360
  19.       Width           =   1455
  20.    End
  21.    Begin VB.TextBox Text1 
  22.       Height          =   375
  23.       Left            =   600
  24.       TabIndex        =   0
  25.       Text            =   "yahoo.com"
  26.       Top             =   360
  27.       Width           =   2295
  28.    End
  29.    Begin DPINGLibCtl.DPingCtl DPingCtl1 
  30.       Height          =   1680
  31.       Left            =   240
  32.       TabIndex        =   2
  33.       Top             =   960
  34.       Width           =   5280
  35.       PacketSize      =   32
  36.       TTL             =   60
  37.       Timeout         =   1000
  38.       Continues       =   0
  39.       PingCount       =   3
  40.       HostName        =   ""
  41.       ResolveAddress  =   0
  42.       IPAddress       =   ""
  43.       UseWindow       =   1
  44.       ScrollBar       =   1
  45.    End
  46.    Begin VB.Label Label1 
  47.       Caption         =   "Host Name or IP Address to ping"
  48.       Height          =   255
  49.       Left            =   600
  50.       TabIndex        =   3
  51.       Top             =   120
  52.       Width           =   2535
  53.    End
  54. Attribute VB_Name = "Form1"
  55. Attribute VB_GlobalNameSpace = False
  56. Attribute VB_Creatable = False
  57. Attribute VB_PredeclaredId = True
  58. Attribute VB_Exposed = False
  59. Private Sub Command1_Click()
  60. DPingCtl1.Ping Text1.Text
  61. End Sub
  62.